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FRODUCED BI-MmMonyTrrity 


BY HLINTEeR WALLEY Ve USERS GSRoOoOUrF 


SDIrTrOR’ Ss COMmMmMEeEnNT=> = = - - ss a ss pe 


STOP PRESS :- ** NEW ** NEW ** NEW ## 
Larry TAYLOR has just updated his V2 EPSON PRINTER PATCH V1.4 with host of 


extra features. Review in next issue. It's a must for anyone with an EPSON 
or EPSON compatible printer. Available from VSOFTWAREZ. 


POTPOURI :- Dot Matrix Addendum - VZ User Groups and Publications. Page 


EDUCATIONAL PROGRAM by Paul LEON :- Page 4 
With last school term just around the corner students will “ind this 
program helofull in learning their Elements and Symbols. 


CHARACTER CODES (C) by Robert QUINN :- Pages 3-7 
Once again Robert comes to the fore to demistity the VZ, this time it’s 
the characters and their codes. 


MAILING LIST UPDATE :- Page 7 

Dick SMITH’S Technical Bulletin lit on tape MAILLIST to disk SAVE /LOAD 
conversion gave just the bare essentials. The mods on page 7 give MAILLIST 
users a bit more versatilty. Major mods in next issue. 


AEM45@5 SPEECH SYNTH. PROGRAMS by Dave BOYCE :- Pages 10 

Held over for a couple of issues they finally make an appearance. 
INKEYS INPUT ROUTINE by Paul LEON :- Page 10 

Unlike the [INPUT command an INKEYS INPUT routine can be taliored to vour 
requirements. tn the M/WORDS program in this issue nearly all inputs are 


handled by this routine. 


USING DISK TOKENS by Robert QUINN :- Pages {1-15 

Carrying on ¢rom previous article Robert has supplied us with a M/L shite 
routine to use with disk tokens as a demonstration program. [t 3 a vary fast 
SLOCK MOVE routine. For another example of it’s use see M/WORDS orogram. 


Z2K BIB RAM by Joe LEON :- Page 15 
Most comments regarding the 2k and SK BIB RAMS from previous 155.165 aise 
appiy to this unit. It’s too expensive for me. 


3k BIB RAM PART II by Joe LEON :- Pages 14-16 

Last issue had the circuits and now the program for activating any missing 
word you like and =*more. Secause of it’s built in LITHIUM batteries which 
should last around ten years you can think of it as a MAGIC EPROM. 


VZ TOKENS AND WORDS by Robert QUINN :- Pages 17-18 

l’m afraid the GREMLINS (See BELIEVE IT OR NOT) got in last issue with 
some ERRORS on page 11 and all the TOKENS were wrong in the right column on 
page it. The complete word and token tables are reproduced which alsa 
includes all disk words as well. Intending constructors of the Sk BIR RAM 


will find the information most useful. 
FOR SALE - FOR SALE :- Our usual ads appear once more pages 19-22 
BELIEVE I7 OR NOT :- 


(Gremlins) - Normally I would apologise, but as my son Paul claims ne 
tought me all about computers I’11 let him take the blame. 


CONGRATULATIONS SHIRLEY AND DANE 
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YOU CAN’T SA 


m 


2 DAVE THEN WATCH OUT Az YOU COULD BE NEXT - 
Y YOU HAVE’NT BEEN WARNED - 


DIsK DRIVE PRIMER .- - i - e i oe as 


Apparently there are a few VZ users with DISK DRIVES who 
find some of the terms used conrusing, mainly about file types. 
T:MAILLIST - The °T’ before the Filename denotes a TEXT or BASIC 


program. You would either RUN"MAILLIST" or LOAD“MAILLIST" 


D:MAILDATA —- The ’D’ denotes a DATA file and can only be created 
by a program like MAILLIST. All the Names, Addresses, etc, 
you typed in are contained in a ’D’ type DATA file and The 
Commands used to SAVE or LOAD your DATA file are :- OPEN, 
CLOSE, PRH and IN#. The 4 commands can only be used from within 
a program, exept for CLOSE which can be used in direct mode. 


roe FPR i VATE SHi_ke ~ = - “= - ue és 
lt off EXTENDED BASIC - °XB’ as from LASERLINK - $25.99 
1 off LIGHT PEN again from LASERLINK - $32.90 


Both items are as new and used twice only and still in original 
packing. Ring Dave on (98) 384 6574 about both items. 


DOT MATRIX FPR INTE RS ADPDDPENDUT 


My thanks to John D’Alton for sending down the fonts below 
which arrived too late for Larry Taylors Dot Matrix article in 
last issue. They were printed on a CITIZEN 120-D printer which 
John markets. 
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YZ-LINK NEWSLETTER P2072 50Xk.. 1972 C.P.0. AUCKLAND NEW ZEALAND 
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whole without the consent of the Author who retains COPYRIGHT. 


EDUCATIONAL PROGRAM BY P.LEON <t 


The program below is designed to help learn ELEMENTS and 
their SYMBOLS. You can chose ELEMENTS, SYMBOLS or RANDOM of the 


two previous. Whichever you chose, you’1ll have to type in 
either the ELEMENT’s name or it’s SYMBOL. Even if you know the 
element’s name the spelling has to be 100% correct. Have ‘fun. 


Only 20 elements have been included and you can add or 
replace with different elements. Do not forget to reDiMension if 
you add or subtract number of elements. 


19 (CROCCO OKCKCICICCOKCIOOOCICIOICCOK CICK OOK OKO OK AK AKOK OK KKK 
20 ’* TRAINING PROGRAM FOR LEARNING ELEMENTS AND SYMBOLS x 
3Q °* TOGETHER WITH PERCENT RIGHT SCORE --- BY PAUL LEON * 
4D KKK KKK KKK KKK KK KK KKK KKK KK KKK KK KKK KKK KKK KKK KK KK KKK KKK KKK KK KK 
5O : 

6@ POKE3@744,96:DIM ES(20) ,S$(20) :GOSUB1900:GOSUB790@: FORI=1TO2@ 
7@ N=RND(20):ITFES(N)<>" "THEN7® 

8@ READES(N) ,SS(N) :NEXTI :GOTOZOO 


90 

100 CLS:PRINT TAB(8) "WM alee eel eb ey" 

110 PRINT" 2j2<2=222222>22222>S2==2==S=S=====" 

12@ PRINT" NUMBER OF QUESTIONS ANSWERED" 

130 PRINT* Q@icbdeisam > MC > 

140 PRINT" PERCENTAGE CORRECT -->" 

150 PRINT" 2s22r3rstrrrttttts sees": RETURN 

1690 : 

290 PRINT@226, "QUESTION # WAS": PRINT@418, “QUESTION #” 


219 FORI=1TO20: PRINT@429,USING" ##";1:GOSUBEO®O 
220 PRINT@482, "iit ee ee" 

230 IFELS="E" THENSI@ELSEIFELS="S"THEN2Z25@ 

240 A=RND(2)-1:IF A THENS1®@ 
250 PRINT@2990, " MEN “SES(1I) 

260 PRINT@#3S54,;:: INPUT "Mewil=e OS AS 

270 [FAS="Q" THENGOSUBSO0O: GOSUB6QO: GOTO37O 

280 [FAS=S8( I ) THENGOSUBSO@ELSEIFAS< >S$( I) THENGOSUBS 190 

300 NEXT :GOSUB6OO: GOTO3790 

310 PRINT@S54, “Me waiil=[0] aa "sS8 CT) 

320 PRINT@290,;: INPUT "Samstag "3; As 

330 IFAS="Q"THENGOSUBS090: GOSUB690 : GOTO379 

340 IFAS=ES$( I ) THENGOSUBSOQOELSEIFAS< >ES( 1) THENGOSUBS190 

360 NEXT: GOSUB6OO 

370 PRINT@440, "Y "“:PRINT@418,;: INPUT "SIN oe eee Oo" TS 
380 IF TS="Y"THENRUNELSEIFTS="Q"THENCLS: END: ELSES79 

330 : 

500 PRINT@Z247, "Micadesamm” >: SOUNDS1, 1: R=R+1:GOTOS29 

510 PRINT@247, "MSlizielsiem”’ : SOUND 15, 4: W=W+il 

520 PRINT@108, USING" ##";R:PRINT@124, USING" ##" 5 W 

530 PRINT@152, USING "###. ##"SR/IK1O0 

540 PRINT@237,USING" ##";1: RETURN 

590 : 

600 FOR J=288TOS88STEP32Z 

610 PRINT@J, " | ";: REM 32 SPACES 
620 NEXT: RETURN 

690 : 

7OO PRINT@299O, “ISR hee) — Selsey — einieisig” : PRINT@S79, "R* 

719 PRINT@355,;:INPUT“SELECT t& OR & OR Iq ",;ELS 

720 IFELS<>"E“ANDELS<>"S"ANDELS< > "R" THEN 7O0OELSERETURN 

730 : 

3800 DATA HYDROGEN,H,HELIUM,HE, LITHIUM, LI,BERYLLIUM, BE 

312 DATA BORON, B,CARBON,C,NITROGEN,N, OXYGEN,O, FLOURINE,F 

820 DATA NEON, NE, SODIUM,NA, MAGNESIUM, MG, ALUMINIUM,AL,SILICON,S!I 
83@ DATA PHOSPHOROUS, P, SULFUR,S,CHLORINE,CL, ARGON, AR 

84@ DATA POTASSIUM,K,CALCIUMN,CA 


CHARACTER CODES ©€0C3 BY R. QUINN = 


CODE :- 


The program CODE gives you access to all the VZ character 
codes-—-ASCII, INVERSE, PEEK/POKE-—from the keyboard. Each time 
you press a key (by itself or with SHIFT key held down) the 
corresponding character will display on screen along with its 
various codes in decimal and hex. 


For nongraphic characters, the first two lines display the 
normal and inverse CHR$ codes. These are the codes used in PRINT 
statements. Normal CHR$ codes are ASCII codes with the range 32 
tO. -35; as set out in the BASIC REFERENCE MANUAL. These divide 
into two sets : those from 32 to 683, Which I will, for 
convenience, call numeric characters (digits, operation 
characters and punctuation characters) and those from 64 to 95, 
the so-called alphabetical characters. 


For numeric characters, the inverse CHRS code is the nornal 
CHRS code + 192. 


For alphabetical characters, the inverse CHR$ code is the 
normal CHRS code + 128. 


Hold SHIFT and press X key to change the background of the 
screen from light to dark and vice versa. Visually, what is 
normal and what is inverse will depend on the background, but 
the CHRS codes do not change. 


The remaining two lines display the normal and inverse 


PEEK/POKE codes. These are the codes that determine what 
character will appear at a given position on the screen (in video 
memory) when you POKE a number to that position, or the number 


you get if you PEEK at a given position on the screen (in video 
memory). 


PEEK/POKE codes are somewhat more complicated than CHRS 
codes. Again, what iS normal and what is inverse depends 
visually (what you see) on the background, but also the 
PEEK/POKE codes change according to the background. 


With a dark background, the PEEK/POKE codes for normal 
alphanumeric characters range from ® to 63, with the 
alphabetical characters having codes from ® to 31 and numeric 
Characters having codes from 32 to 63. Then the PEEK/POKE code 
for an inverse character is the normal PEEK/POKE code + 64 (range 
64 to 127). 


With a light background it is the inverse alphanumeric 
characters that have PEEK/POKE codes in the range 9® to 63 and the 
normal characters whose PEEK/POKE codes are the inverse PEEK/POKE 
codes + 64 (range 64 to 127). You can see this when you switch 
background (SHIFT X) while CODE is running. 


Now try some of the graphic character keys (SHIFT J, SHIFT Z, 
etc.). CODE displays each graphic character in all eight colors, 
with the PEEK/POKE character code for each color. The PEEK/POKE 
code for each successive color (down the screen) is the previous 
color code + 16. 


Green is the start color, and iit is the green PEEK/POKE 
code for each graphic character that is the CHR$S code fsr that 
Character. . 


CHARACTER CODES CONT. . - + 2 = eS 


The range of CHRS codes for the sixteen graphic characters is 


128 to 143. This is the standard or default range. There are 
three other ranges of CHRS codes available for graphic 
Characters: 144 to 159; 16@ to 175; and 176 to 191. These 


simply repeat the standard range of graphic characters. 


When using CHRS codes for graphic characters, you select the 
color you want for a graphic character by using the COLOR 
command. With PEEK/POKE you select the color of a graphic 
Character by choosing the PEEK/POKE graphic character code 
appropriate to the color. The PEEK/POKE code for a green zraphic 
character is also the standard CHRS code for that character. 
This is the code that.CODE displays at top of screen. 


CONTROL CODES :- these are CHRS codes for cursor control 
commands that are accessed with the CTRL key held down: cursor 
up, down, left, right, INSERT, RUBOUT. RETURN key also has 


a CHRS code. 


Other CHR codes can be viewed with CODE by HOLDING SHIFT and 
pressing C key. 


The BACK ARROW character (ASCII code 95; inverse code 223) is 
not accessible via the keyboard. You have to use CHR$S or POKE tc 
make use of this character. With CODE running, SHIFT V keys 
will display the back arrow character codes. 


LQ KKK KKK KKK KKK KKK KKK KK KK KKK KKH KK KKK KKK KH KKK KKK KKK KKK 
12 ’* ASCII AND PEEK/POKE CODES FOR NORMAL - INVERSE * 
14 ** GRAPHIC AND CONTROL CHARACTERS BY ROBERT QUINN * 
LE KKK KKK KKK KK KKK KK KKK KK KKK KKK KKK KK KK KK KKK KKK KK KK KKK K 


320 CLS: N$="90123456789ABC DEF" : X=-1: VM=28672: POKESO744, 1 

40 PRINTG@7, "Maflsieae = caiele) a) =) * 

S@ PRINT: PRINT"“PRESS A KEY BY ITSELF" 

6@ PRINT: PRINT"OR WITH SHIFT HELD DOWN" 

7@ PRINT: PRINT"OR WITH CTRL FOR CURSOR CONTROL KEYS" 

8@ PRINT:PRINT"SHIFT X SWITCHES BACKGROUND" 

90 PRINT: PRINT"SHIFT C FOR MISCELLANEOUS CODES" 

95 PRINT: PRINT"SHIFT V FOR BACK ARROW" 

100 AS=INKEYS$: AS=INKEYS 

110 IFPEEK (26875) =249, SOUND2@, 1: X=NOTX : POKES0744, ABS(X) :GOTO199@ 
120 IFPEEK (26875 ) =243THENSOUND2@, 1:CLS:GOSUB419: AS="" 

125 IFPEEK (26875 )=219THENSOUND2®@, 1: AS=CHRS$(95) :GOTO149 

130 IFAS$=""THEN1900 

140 B=0:CLS: A=ASC (AS) : BS=AS: IFA<3 1ORA=127THENGOSUBS 19 

150 IFA>S1ANDA<64THENB=A+192 

160 IFA>31ANDA<64THENB=A+ 192: N=A:V=A+64 

170 IFA>63ANDA< SETHENB=A+ 128 >: N=A-64: V=A 

18@ IFA>127ANDA< 144THENB=1 

i9@ IFB> 1THEN2Z20ELSEIFB=OTHEN190@ 

200 T=0:FORR=1TO8:M=A+16*(R-1):COLORR:PRINT@T,BS" "3M3 -GOSUBSOO 
210 T=T+64:NEXT:GOTO100 

22 PRINT@64, BS; : PRINT@6S8, USING "###"3A; > M=A:GOSUBSOO 

230 IFA>S1ANDA<S6THENPRINT" ed ae * 

240 PRINT@128, CHR$(B);:PRINT@132, USING "###"% 5B; :M=B:GOSUBSO® 
250 PRINT" itd a: ‘i 

260 POKE2S6+VM,N:PRINT@260, USING "###"5N; :-M=N:GOSUBSO@ 

270 PRINT" PEEK“ PUK 

280 POKES2Z0+VM, V: PRINT@324, USING "###"39;3 :-M=V:-GOSUBSO® 

2390 PRINT" ell ed lel aS" 

300 GOTO10®0 


CHARACTER CODES CONT . Fe - - ~ - - 


319 M=A:IFA=127THENPRINT@64, "RUBOUT "3A; 
320 IFA=21THENPRINT@64, "INSERT ‘°;A;3 

33@ IFA=STHENPRINT@64, "CURSOR LEFT "3A; 
34@ [FA=STHENPRINT@64, "CURSOR RIGHT "3A; 
350 IFA=1@THENPRINT@64, "CURSOR DOWN "3A; 


360 IFA=27THENPRINT@64, "CURSOR UP "SA3 

370 IFA=13THENPRINT@64, "RETURN "SA3 

380 GOSUBS@®@: RETURN 

410 PRINT@64, "CURSOR HOME ";28;"= HEX 1C":PRINT 
420 PRINT"CLEAR SCREEN "331; "= HEX 1F" 

430 RETURN 

500 C%=M/ 16: M=M—-16xC% : GOSUBS2@ : C%=M = GOSUBS 20 

S1@ PRINT" = HEX ";D$;:D$="":RETURN 


520 DS=DS+MIDS(NS,C%+1,1): RETURN 


MIAGAIL ING LIST VUFDATE - - - ~ - - a 


This updates is for those persons who converted their tape 
MAILING LIST for disk use according to D.Smith’s Technical 
Bulletin 111 which is available free from D.Smith. 


DISPLAY DISK DIRECTORY :- Just press °®’ for DIRECTORY. 


READ MENU :- 
1) Selecting READ will load your DATA file from disk. 
2 CLOSE OPEN DATA FILE. If you get FILE ALREADY OPEN ERROR, 


then type in GOTO100®, select 2. READ option and select @ again 
to CLOSE OPEN FILE. 


WRITS: MENOQ: 3-= 


L) WRITE NEW DATA FILE - Use this option only if your disk 
has’nt a data file on it already called MAILDATA. 
2) UPDATE OLD DATA FILE - This option will first ERASE MAILDATA 


file and then WRITE a new MAILDATA file. 


WARNING :- In case of ERRORS - DO NOT type in RUN or you will 
lose ali your data, instead type in GOTO01000 to regain control. 


600 COLOR7: PRINT@S4, "HiRSSismuisalg 4° 
5@5 PRINT@232."1. READ DATA FROM DISK" 
619 PRINT@356,"2. CLOSE OPEN DATA FILE" 


530 PRINT@450, "9 MMacistsia Meats) isle eee sae lea 4" 5 7 KS INKEYS 
640 DIS=INKEYS: [FD1$="2"THEN6135 —— 

350 IFDi$=" “THEN1@@@ELSEIFD1$="! "THENGOSUB3@: RETURNELSE630 
690 : 


7@@ COLOR7: PRINT@S4, "4 BLEM Salant a” 

71@ PRINT@292,"1. WRITE NEW DATA FILE" 

720 PRINT@3S56,"2. UPDATE OLD DATA FILE" 

730 PRINTG@45Q, "9 sisi dss te memati alee Se a aL A" | 7 KOS TNKEYS 

74@ D2S=INKEYS: IFD2$=" 1"ORD2$="2" THENGOSUB3@: RETURN 

750 IFD2$=" "THEN1Q@QOELSE730 

800 CLS: DIR: STATUS: PRINT: GOSUB4 190: GOSUB49000: GOSUB3@: RETURN 
102@ COLOR7: PRINT@S3S4, "Siig g’;::PRINT@45,:"% OF RECORDS: ": 
1925 PRINTUSING" ###";DT 

1927 PRINT@S8,"@. DISPLAY DISK DIRECTORY"; 

1230 [FI$<"@"ORI$S>"9O9"THENI2ZZ2Q0ELSESOUNDS®O, 1 

1340 IFI$="0" THENGOSUB8@®@ : GOTO 1929 

SOOO REM BRE | cele SR we Sa eae a i a 

501@ GOSUB3O:COLOR7 : GOSUB70@ 

S020 PRINT@261,"C WRITE DATA TO DISK 1": GOSUB4100:GOSUB36 
5205 [FD2s="1"THENS2Z19ELSE: ERA"MAILDATA" 

SOOO REM "Mise sare st wi Fe mT aj a Se 

5@19 GOSUB3@:COLOR7 :GOSUBEO®O 

5@20 PRINT@260,"C€ READ DATA FROM DISK 1"; :GOSUB410@:GOSUBS® 


SPEECH SYNTH PROGRAMS D. BOYCE 


AEM'’S CTS/SPO Speech Board - Program notes for the VZ 200/300 


You will notice that the OUTPUT Routine for TALK A program is 
MUCH SHORTER and COMPACT when compared to my Original Programs. 


In the routine ’TALK 3’ the actual OUTPUT Routine takes a few 
lines, this is for Clarity Purposes. 
in °’TALK A’ you will see that the Output Routine has been 


reduced to just two lines. 


Explanation of Output Routine taken from "TALK 3° 


19200 


19229 


19249 


192690 


FOR T=1 TO LEN(A$) ° Starts Output Loop of A$ 


A~ASC (MIDS(AS,T,1)) 
value of each letter 


> A is made equal to the ASCII 
in the String in turn 


OUT 12,A ° the ASCII value is output to the Printer. 


NEXT ° goes back for the next character in the String 


19279 


OUTPUT Routine from 


LPRINT:LPRINT:LPRINT ° forces the Speech to 
Output ALL of the String 


"TALK A’ 


1500 is the combination of lines 190290@ to 1@260 as above. 


1520 


is the same as 190270 above. 
I have found that only 2 LPRINT commands are needed. 


Dave BOYCE 


52 GOTO 190 
60 ERA"TALK 3" 
7@ SAVE"TALK 3":DIR:STATUS 


80 END 
190 CLEAR 300 :’ 


FILE - TALK 3 


18@ CLS:PRINT"TALKER VERSION 1.3" 


200 PRINT 

10119 * SIGN ON 

19120 AS="BY--YOR--COMMAND":GOTO 190180 

19130 °INPUT SECTION 

1914@ PRINT" SEPERATE WORDS WITH A DASH" 

1915@ PRINT" E.G.-> HELLO-THERE-FRIEND": PRINT 

1@16@ INPUT" TALK PT.1)";A%: INPUT" TALK PT.2)"3;BS: AS=AS+"—"+BS 
19179 LF A$S="—" THEN A$="PLEEZ-ENTER-SUM-THING—2-SAY" 
10180 ° | 
1919@ ° OUTPUT LOOP ROUTINE 

10200 FOR T=1 TO LEN(AS) 

10220 A=ASC(MIDS(AS,T,1)) 

19249 OUT 12,4 

10260 NEXT 

19270 LPRINT:LPRINT: PRINT 

19280 GOTO 190140 

10290 ° GO BACK TO SENDER 

19300 END 


SPEECH SYNTH PROGRAMS CONT. é ‘ 


i@ CLS * FILE —- TALK A 
15 * DO NOT EDIT LINE 210 
20 POKE31946, 161 


25 PRINT" CTS/SPO SOUND EFFECTS DEMO.":PRINT :’FOR AEM 4595 
3@ CLEAR 300 

35 PRINT" 1) GARGLING" 

40 PRINT" 2) RUBBER LIPS" 

45 PRINT" 3) TRAIN" 

5@ PRINT" 4) SNEEZES" 

55: PRINT” S) MACHINE GUN" 

60 PRINT" 6) WHISPERING" 

65 PRINT" 7) STARTER MOTOR" 

7@ PRINT" 8) SIREN (SORT OF)" 
75 PRINT" 9) DOG" 

8@ PRINT" 10) OWN SOUND/MESSAGE" 
85 PRINT" 11) UP-DATE DISK" 

90 PRINT 


PRINT@416,;: INPUT" ENTER YOUR CHOICE "3A 

% A GOTO 500,550,600, 650, 700, 750, 800, 850, 900,950, 1650 
220 PRINT@437, " ":GOTO 206 

AS="GARGLING. ARRGLARRGLARRGLARRGLARRGLARRGLARRGL" 
GOSUB 1500 

GOTO 2900 

A$="RUBBER-LIPS. BLBLBLBLBLBLBLBLBLBL" 

GOSUB 1599 

57@ GOTO 200 

AS="STEAM-TRAIN. SHSHSHSHSHSS, TOOT-TOOT, SHSHSH" 
GOSUB 1599 

640 GOTO 200 


650 Ag$="SNEEZING. ASJ,ASJ,ASJ, ASJ-GZUNTITE" 

660 GOSUB 1500 

670 GOTO 200 

70@ A$="MHACHINE-GUN. GGGGGGGGGGGGGGGCGGGGGGGGGGGGGGGGE" 
71@ GOSUB 1509 


720 GOTO 200 
A$="WHISPERING. SHSH. SH. . SH-SH-~SH-SHSHSH-SH-SHSHSH" 
GOSUB 1500 

770 GOTO 2060 

AS= "STARTER-MOTOR. IH-IH-IHIHIHIHIHIHIHIHIHIHIHIHIHIH" 
GOSUB 1509 

GOTO 200 

AS= "SIREN. OOWLOOWLOOWLOOWLOOWLOOWLOOWLOOOWLOOWL" 
860 GOSUB 15900 : 
879 GOTO 200 

AS= "DOGGY. WFFWFF-WFF-WFFWFF-RFF" 

GOSUB 15909 

A$S="..THATS-—PUHTHETIC" 

GOSUB 159090 

GOTO 200 

INPUT" YOUR TRY ";AS 

IF As="",AS="YOU-DID-NOT-ENTER-ANY-THING. TRI-—AGAN" 
GOSUB 1500 


9930 RUN 

1500 FOR T=i TO LEN( AS) :C=ASC(MIDS(AS,T,1)) :OUT12,C:NEXT 
1520 LPRINT:LPRINT 
1560 PRINT@437, " 
1600 END 


":AS=—"": RETURN 


SPEECH SYNTH PROGRAMS CONT. = 12 


1650 ° NO# 11 UPDATE DISK 

1660 AS="DO-YOU-WAN-2-UP-DATE-THE-DISK":GOSUB 15909 
1670 DS=INKEYS: DS=INKEYS 

i680 IF INKEY$="N",220 

1690 IF INKEY$="Y", 175@ 

1700 IF INKEYS$<>"Y" OR INKEY$<>"N", 1670 
1740 END 

1750 ERA"TALK A":SAVE"TALK A":GOTO 220 
200® FOR L=31870 TO 32000 

2020 PRINTL; PEEK(L) ;CHRS(PEEK(L)) 

2025 IF INKEY$=" ",2025 

2930 NEXT 

2049 LIST 29 


IME_E Y -= INF UT ROUTING BvY PAUL LEOM 


As most programmers know the INPUT command on the VZ has it’s limitations, 
but an INKEYS INPUT routine can be tailored to your requirements. The 


routine below will not accept leading spaces, INVERSE or GRAPHIC characters. 
POKES@776,4@ disables latter two inputs. Both ALPHA and NUMERICS are catered 
for. NC=VAL (INS) in line 9% converts STRING to a NUMERIC value and ulike the 
INPUT command COMMA‘’S, etc are ignored. Imagine no more REDO's. 

LE is the variable which sets the lenght of the INPUT. Only lines =@@ to 
31@ are required, the rest are for demonstration purposes. Trailing spaces 
can be removed by line 300 or left in. This routine was used tor most INPUTS 
in M/WORDS program on page 16. 


LQ RIK KK RO RK KK KKK KK AK KA KKK KKK KK KKK KK KK 


12 **x INKEYS INPUT ROUTINE DESIGNED BY PAUL LEON FOR HIS DAD * 
LA KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK A KKK AK 


20 CLS: POKE30744, 96: COLOR, 0: POKES@862, 80: POKE30863, Sz 


25 SPS=" ":REM 30 SPACES 
30 PRINT@SS, "MMRGL A= ee": PRINT 
35 PRINT" Sibsl=ailelipa leone de) ele”: PRINT: PRINT 


40 PRINT" USE (gtislgas (3) KEY TO ERASE": PRINT 

45 PRINT" PREVIOUS ENTERED CHARACTERS" :GOTO6S 

50 PRINT@3S5, "CSD EN eee OS; SOUNDSO, 1: LE=-~- 
55 GOSUB2Z00: YS=IN$: L[FY$="Y"THEN6SELSEIFYS="N"THEN6OELSES®@ 
6@ CLS:END 

65 PRINT@417,SP8:GOSUB195 

72 PRINT@385, "SSeS eee 0" | 7 SOUNDSO, 1: LE=1 
75 GOSUB200: YNS=INS 

80 IFYNS="Y"THENSSELSEIFYNS="N" THENSSELSEGOSUB1 190: GOTO79 

85 GOSUB110:PRINT@385, "SiMe SS aR eee; S LE=2 
90 GOSUB200:NC=VAL( INS): IFNC< 1ORNC> 1GTHENSSELSEPRINT@385,5P3 
95 PRINT @385, "Sisiatscmsstam “3 > SOUND3O, 1: LE=NC : GOSUB200 

1900 PRINT@417, SPS: PRINT@429, CHR$(34) IN@CHRS$(34) :GOTOSO 

105 PRINT@385, SP$:SOUND3O, 1: RETURN 


1190 PRINT@412, " ":SOUND3S@, 1: RETURN 
180 : 
190 REM "Waals MPEP pect 


200 CUS=CHRS(222)+CHRS$(8) : BSS=CHRS$(8)+CHRS(127)+CUS: INS="" 
21@ L=LEN(CIN®):PRINT INS;CUS; 
220 AS=INKEYS: AS=INKEYS: I[FAS=" "THENZ20ELSEX=USR(X) 


230 POKE30776, 40: IFAS=CHRS$( 13) THENPRINT" ":GOTO290 
240 [FAS="; "ANDL>@THENPRINTBSS; : L=L-1: INS=LEFTSCINS,L) 
250 IFL=LE THENSOUND2®O, 1ELSEIFAS=" "ANDL=9THEN229 


260 IFAS<" "OQRAS>"*"OQRAS="35 "THENZ2ZO 

279 IFL<LE THENPRINTAS;CUS; : INS=IN$S+A$:L=L+1 

280 GOTO2Z29 

290 IFYNS="N"THENRETURN 
30@ IFRIGHTS(IN$,1)=" "THENINS=LEFTS( INS, LENCINS)—1) :GOTOSOO 
310 RETURN | 
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USING A DISK TOKEN IN A BASIC PROGRAM :- 


First we choose a disk token--133 will do. Then we insert 
this token in a brief BASIC program to test its operation. Enter 
the following program:-— 


19 LET: PRINT"TEST" 
20 PRINT" AGAIN" 
3@ END 


To replace the token for LET with our disk token, 
POKES 1469, 133 


If you now RUN you will get ERROR messages because your VZ’s 
MICROPROCESSOR (the MP) picked up on token 133 at start of line 
10, located the pointer for this token which directed it to 
address 31091 where it found and executed a JP301 instruction. 


What we want to do is change the instruction at 319091 so that 
the MP will execute it, then return to line 10 and continue to 
run our BASIC program. The simplest change I know of is a RET 
instruction (Code 201). So, POKE31991,201 and RUN. 


It works! The MP jumped to 931091 where the RETurn was 
encountered and executed and program RUN continued on to complete 
iine 102 and then line 20. This tells us something important: 
when a token is encountered in a BASIC progran, if a CALL 
instruction is executed, so that no matter where the MP may jump 
to run the M/L routine tied to that token, it can find its way 
back to its position in the current BASIC line if the M/L routine 
ends with a RET. 


So let’s try something a little more complicated. We’ll set 
up a short M/L routine in a stretch of otherwise unused memory, 
in the COMMUNICATIONS REGION, that begins at address 3127¢ 
(LO=41;3 Hi=i12Z2). First change the instruction at 31091 to JF 
SiZTS: 


POKE3 1091, 195: POKE3S1092,41:POKE 319093, 122 
Now add these lines to our BASIC program: 


90 A=31273 
6@ INPUTB: POKEA, B: A=A+1:GOTO6® 


RUNS5@ and INPUT this sequence of numbers: 33,1,1,34,90,112,201 


BREAK --— We have now set up a M/L routine at 31273 consisting of 
these three instructions:-— 


LD HL,257 
LD( 28672) ,HL 
RET 


The routine loads the H and L registers with ’1’ which is the 
POKE code for A, then POKEs these codes to the first two cells of 
screen memory (28672/3, top left corner) and RETurns. 


So, now CLS, press <RETURN> and RUN. 


OSYNTAX ERROR IN 190 
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But our M/L routine executed, did it not? There are two A’s 
in top of screen. Only the MP returned to line 10 and BREAKed. 
Why? Because we changed the contents of the HL registers. When 
we use USR(x) to execute a M/L routine, USR saves the current 
contents of the HL registers on the STACK and when RET is 
encountered to bring the MP back to BASIC, the contents of the 
hl registers are restored. No matter how the registers may 
change in the course of executing the M/L routine, the MP 
Continues execution of the BASIC program with the registers the 
same as when it began USR. 


We must do the same with our M/L routine. The routine only 
uses the HL register. pair so we need only save and restore these 
two registers. We do this by PUSHing HL on the STACK at the 


start of our routine and then POPing them from the STACK at the 
end of the routine. 


229 PUSH HL 
225 POP HL 


Again RUNS® and INPUT this sequence of numbers: 229, 33, 1, 
1, 34, @, 112, 225, 201 


BREAK. CLS, press <RETURN> and RUN. 
This time our program ran through to END in line 30, 
executing our HM/L routine, then returning to execute the two 


PRINT statements in lines 10 and 20. 


Having successfully worked out a technique for making use of 


disk tokens, it only remains to design some interesting and 
useful M/L routines to execute with our new technique. That will 
be largely up to you. But here is an example:- 


Video memory consists of 2048 bytes (from 28672 to 30719), of 
which only one quarter (512 bytes) is used for the screen display 
in text mode (28672 to 29183). We can use another block of Siz 
bytes of video memory as a video store, say from 29184 to 29695, 

and set up M/L routines to copy the text mode screen to our 
video store and recall the content of the video store back ta 
screen. This can be done very easily entirely in BASIC, using 
PEEK and POKE in FOR NEXT loops. The advantage of M/L routines 
is that they are very fast, practically instantaneous. 


Again RUNS®@ and INPUT the following sequence of numbers :- 
229, 33,0,112,17,%, 114,1,0,2,237, 176,225, 201 
229, 33,9,114,17,9,112,1,9,2,237, 176,225,201 


And BREAK. Two routines have been set up in the 
COMMUNICATIONS REGION, a COPY (screen to video store) routine 
Starting at 31273 and a RECALL (from video store to screen: 
routine starting at 31287. 

We will use the disk token 165 to execute the COPY routine 
(PUT) and disk token 164 to execute the RECALL routine (GET). We 
must change the JP instructions in the COMMUNICATIONS REGION for 
these disk tokens to make them jumps to the start of our M/ i 
routines: 


POKE31107,41:POKES1198, 122 POKES 1104,55:POKE31195, 122 


We are now ready to use our new tokens and their M/L routines 
in BASIC programs. So let’s try them out. First NEW your VZ. 
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Enter this BASIC line :- 

50@ LET: RETURN 

Now POKE31469,165 and enter this line :- 
400 LET: RETURN 

And POKE3S1469, 164 


We have set up two BASIC subroutines, a PUT routine at line 
5@@ and a GET routine at line 400 which can now be called by 
using GOSUBs to those lines from Within our BASIC program or even 
called with GOSUBs in command mode. 


Try. at. Enter GOSUBS9O®O 
NOW CLS and GOSUB4909. 


How about that eh? You can fill the screen with any data you 


please, then store it in the video store with a GOSUBSO®@, and 
recall it to screen anytime you want with a GOSUB400. 
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This 22K BIB RAM is the last in the line of BIB RAMS and is incliaded tor 
completeness. At around $148.00 it is very expensive and 40% more than the YZ 
itself. I can’t see too many persons rushing out to get one. A 16K BIB RAM 
would be more useful than above, but it’s not available to my knowledge. And 
now to the circuit. As you can see there’s not much to it. The 4 DIQDES and 
3K= resistor form a 4 INPUT DIODE AND gate. A single S2k or two 16K decoded 
O/P’s could have been used but were decided against for the following reasons. 

If you have a W.P. cartidge then it wont work with circuit unless you 
disable top 16K. The 2 switches allow us to do so. Also if you use 32k BIE 
ram as an EPROM program developer then it’s very desirable being able to 
switch out one or more 8K blocks. The switch on the WR (WRITE) line is there 
as a WRITE PROTECT switch when needed. The diagram on the right shows the 
pinouts of 2K, 8K and 32k BIB RAMS. If you have trouble locating a supplier 
for BIB RAMS then contact :- 


NOVOCASTRIAN ELECTRONIC SUPPLIES PTY. LTD. (049) 62-1558 or (949) 42-2005 
24 BROADMEADOW ROAD, BROADMEADOW, NSW, 2292, AUSTRALIA 
MK48702 2K BIB RAM - $34.4@ - Available X stock. 
DSi220 ZK BIB RAM - # - 7°9°?° 
DS1i205 3K BIB RAM - $45.00 - $54 - (158 or 28@ns) 
NSi2z5 32k BIB RAM - $140.9@ - (15@ns) 
Ml DS (Dallas Semiconductor) BIB RAMS are available on indent oniy. 
Prices are aproximate, ckeck with supplier for correct price. 


Please mention H.V.VZ.U.G. when making enquiries or purchasing any above. Ed. 
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The @K BIR RAM is one of the more ext ting projects that Tf buiit. My 
thanks to Dave Mitchell, Robert Wuinn and warry Taylor for their neip with 
routines and information which I found most useful, thanks relias. 


Using the program { activated all the following axtended basic commands :~- 
RANDOM, DEFINT, DEFSNG, DEFDBL, RESUME, ON, SYSTEM, DELETE, AUTO, VARFPTR, ERL, 
ERR, STRINGS, MEM, FRE, POS, CINT, CSNG, CDBL and FIX. 


The ¢ollowing disk words were also enablea with some ot tnei1r names oe1Nng 
cnanged. FUT, GET, CMD to DUS, OPEN to TRON, CLOSE to YROFF. 


Now just by switching ROM 4 aut and switcning Sk BIB RAM in it’s piace all 
the =xt. Hasic commanas are at my disposal. altnougn routines tor TRON ana 
TROFE are in the ROM their place in the word table nas oeen taken cy other 
NOrds. Renaming words wont activate routines, s0Qinters have to 3e cnangec 
which i:3 wnat [ did. 


“5 iner@ are no pOae res in ROM for the disk commands CMD, FUT and ET 
sther routines were used. &.Quinn’s block move routine was glaced in ck sls 
AM at aiUQH. AS in os article PUT shifts the text screen up S32 oytess 
‘1/0e) while GET orings it back to the fext screen. ejT and Ge: jives me 
tmstant menu in my programs. 


Io 4 - bet cnis command has you wondering. Gute orten wnen / neea =a 
ranumper ogart ot a orogram [ CLOAD W.Obrist 5 ranumbpering wtiiity. when aone 
° “gad og Mave tO Save program to tape as the renumbering wtility c.0cpnered 
she 90s. Now when t want to return to disk use i type in DGS and it 
reinitial:ses botn the VZ and DOS. The basic program no ionger responds «to 


(ST or RUN, out Sy using Dave Mitchell's Ext. Dos OLD command tne arogram *% 
4 


7. TEYT @QkE «- This function is designed to poke TEAT to AM. Si a- RERDY ~ 
4ow many “limes nave you aressed RETURN over READY and got an =RRUR nessage. 
av using TEXT FOKE you can change it +g REM as it oroauces no error inessage. 
“ye word READY Lives at 2441-6446. Oon't forget to put © spaces at ana or. FEN 


oe 


a3 17 13 Ooniy 2 characters ion. 


ww 


2 -~ @NKE WORDS :- This is the option tor anabling missing words. 2. ULM 
NORD coutine 1s usea to identify missing words wnicn are =nen *yped 134 anc as 
s00n as RETURN is pressed they are PORED in. Reter to the two hables in pages 


Lyme The lett culumn shows all words wnile wignt column snows ihe gaps 
wnere® ne missing words go. Traliing Spaces anda inverse characters ars 
aisabiad in this ‘function so the correct number of characters “ave ©5 26 


anter ad. 
“i - WORDS PEEK :- This is like above, out for viewing ond. 
4 - MEM *EER - This allows you to PEEK at poth Hi and Lo Memory. 


R - MOVE ROM A iH This options will move ROM 2, ROM - and DOS ROMS co 
OO@O-OFFF (49152-57747). This is where all the alterations are gone and HOKE 
WORDS routine only works in chis area. MOVE ROM Q@ betore FOKE. 

39 tar oin MEM PEEK HI ana TEXT POQKE HI routines, ottsets SOR SEM: Ont 
ec 700 and 2129) were incorporatec as che program was origqinmai.sy designec 
anapie mssing vorts only and .c sort of grew a dit. AS ENE sragram 

. oancer gevelopement ther options wili oe added .2e6 wo~Bytarkicadvne -ORG 


es 
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-or 4se@ un changing word ajointers, 2nc. 
“eae ok OAM CUva tm 6 Cpuadt oan W.THIUM opaterias Jas Deen ver Aseria 
anaobiing nssing = soras. Sisgo aS any one sat tne 1 <OMS can Oe Ta obs. es 
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SAM cmey can 39@ aitereda, PSUTL Nes Te@wrictten and [Just a rew eec 
sy zlicwing a cougie@ of switcnes instant foram. 
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BOI KICK A AK ICICI A I I KR A AK AR AAR A A AR RK 
‘x M/WORDS - MISSING WORD ENABLING ROUTINE BY JOE LEON * 
’* WITH ROUTINES BY ROBERT QUINN AND PAUL LEON * 
FOO ICI I OK CK IK OK A CK A KK KOK AK IK ARO RO ARK RK 


POKE30897, 204: POKES@898,191:REM - SET NEW TOP OF MEMORY 
CLS: GOTO10®@ 

REM "SRB (5 RS 

CLS: POKE30777, 1: PRINTSSS$; 

D=i27:FORR=S71210 Az :P=PEEK(R):IFP>128THEND=D+1:PRINT 
LFP> L2SSTHENPRINTUSING "####";R3D3: PRINT": %5 

IE P> [OBTHENPRINTUSING “###";P3 ELSEPRINTUSING "##";P; 
[FP=129ANDDS="P" THENGOSUB40@ 

[FP>@THENPRINTCHRS(P);" "3 

TFP< 192ANDP>1IS9THENPRINT“WORD IS ";CHRS(P-128);3 

AS- INKEYS:AS=INKEYS: I[FAS<>""THENSOUND2®, 1:C=NOTC 
[FC=-1THEN7OELSEI FAS="Q" THENSOELSENEXT 

POKE3O777, 35: PRINT: PRINT: GOSUB1 105:GOTO15®@ 


REM "gm [SR Ca Ma Sa |) lm 8 
FOR BM=31273T031286: READMB: POKEBM, MB: NEAT 
DATA 229, 33,0,9,17,%, 192, 1,0,32, 237, 176,225, 201 


CLEARGOO:COLOR7: MS=" yD Gg C1 | Sa al | " 

R= "MAL SM A a CO SPB" ":REM 7 SPACES 
Blas" ":REM S32 SPACES 

SSS= "Sle CNS A SSS" 

EQS=" So ae ae ee Se SS SS ee Se SE REM 3@ = SYMBOLS 
CLS: POKE20744, 96: COLOR, 0: POKES@862, 80: POKES0863 , 52: GOTO’ 29 











PRINT@473,SP$;:PRINT@447, "  SULANSTAENO AMS elalcie ee 
SOUND30, 1: LE=5:GOSUB2000: A1=VAL( INS) 

[FDS$="T"THEN5OO 

PRINT@473,S5P3;:PRINT@Q447,"  SUSRMASICMMENINMMSIm in icicmeI 
SOUND3@, 1: LE=S:GOSUB2000: A2Z=VAL( INS) 

[FDS="W"ORDS="P "THENSSELSEI FA 1=OTHEN 15 





PRINT@448 , " MHGISAIM AMT A  GOSUBS 15 
TE=!: GOSUB2ZOOO: XS=INS 
[FPX$="H"THENGOOELSEIFX$="L"THENS1IQOELSEZ7@ 
Al=A1L-16384: A2=A2-16384 

CLS: POKES@777, 1: PRINTSSS; 

PRINT: FORL= Al TO AZ :PRINTUSING" #####8##4"5L; 
PRINTUSING" ### ";PEEK(L); 

PRINTCHRS( PEEK(L)); 

[FXS="4"ORPS="H"THENPRINTUSING "##H#H##44 ":L+l16384ELSEPRINT" " 
'FINKEYS=" "THENG4@ELSEIFINKEYS="Q"THENS45 
IFINKEYS=" "THENGSSELSENEXT 





PRINT: PRINT@480, RB; : POKESO777, 35: SOUNDS®, | 
IFINKEYS=CHRS( 13) THEN1IS80ELSE3S® 

PRINT: PRINT: PRINT " Maye leie| cd cusiigmrett ol mia ett A 5 RSD :SOUND3O, : 
A3=R- 16384 

PRINTBLS s 2 PRINT "Wesabe cela ii ote ee ee Col "ss POKESO7T7T7, 35 


SCUND20. 1: LE=7:GOSUB2000: WS=INS: [FWS="" THENRETURN 
POKE aS. ASC(WS1+128:FOR I=! TO LEN(WS)-1 


SPOKE AQ+I, ASC(MIDS( WS, [+1, 1)):NEXT: RETURN 
PRINT@4 49 , BRN SSR se eR Me eR 3 OS UBSIS 


LE=1:3OSUBLOOO: PS=INS 
TTP Ss=' 4" THENAd=a 1—- 16384: GOTOSSMVELSEIFP3="L"THENA4=4 1 7GITOSSY 
[FPS="Q" THEN 1 SOELSESOO 


Sk 


Saw 


Soo 


629 
Sao 
535 
65648 


729 
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PRINT@443, BLS; :PRINT@449, "MMSURNM Rie a >: SOUNDS, 1 
LE=16:GOSUB2000:TS=INS 

IFTS=""THEN7O®@ 
TORI=OTOLEN(TS$)-1:POKEA4+1,ASC(MIDS(TS,I+1,1)):NEAT 


Al=A4:A2-A4+LEN(TS$)-1:GOTO319 


PRINT@476, 535 

COLORS: PRINT@447, "MMi (UU% Sb fn) ii MAMBOTS Sted Nt ENC Se A 
LE=1:GOSUB2000: RES=INS 

[FRES="@0"THENLB=90: HB=0:GOTO635 
IFRES="1"THENLB=0: HB=32:GOTO635 

1 FRES="D" THENLB=9 : HB=64 : GOTO635ELSE I FRES="Q"THEN1IS@ELSEGOS 


‘boo 
* 


-SOUNDSS, Ll 


POKE31275, LB: POKES1276, HB 

POKE30862, 41: POKE30863, 122: PRINTUSR(@} :GOTO180 

CLS+ PCOKESO? 7 ¢, 

PRON T "BR Meo ee Co ct a a": PR INTE QS : P RINT 
PRINT" ay - TEXT POKE ‘S| - SAVE ROM O°: PRINT 
PRINT" @ - POKE WORDS (i@ — LOAD ROM 9O":PRINT 
PRINT" ‘“! - WORDS PEEK gf - MOVE ROM X":PRINT 

PRINT* (9 > SIEM PEEK 49 -— REPL PROG. ":PRINT 
PRINT" £3 - DIRECTORY 4 - SAVE PROG." 


PRINT@4 16, EQ$; : POKE30777, 35:GOSUB915 


COLORT:PRINT@448,M$;:LE=1:GOSUB2000: DS=INS 
[FDS="L" , GOSUBS9@O: GOTO L20Q@ELSEIFDS="S", GOSUBSOO : GOTO 1300 
TFDS="$", GOSUBSOO : GOSUB1 100: GOTO1380 

1 FDS="&" , GOSUBSOO: GOTO 1LQ@Q@OELSEIFDS$="*" , GOSUBSOO : GOTO 1900 
[FDS="R" THENGQOELSEIFD$="P"THENZ29ELSEIFDS="W"THENZ29 
TFDS="T" THENZOOELSEI FDS="M "THENZOOELSESO@ 


ti z a me 


i — 
= ., 
1498 T — 


COLORS: PRINTG@447, "9 ibehjalitiie sean BB C= bl ct iad eS 
IS=INKEYS:CS=INKEYS: [FCS=""THENSOSELSEX=USR(A) 
[FCS=" "THENRETURNELSEILFCS="Q"THENIS@ELSESOS 


SOUND®, 1325, 1;30, 1: RETURN 





DL MMM |": GOSUB 


CaS 
Gls 


, oe T ww 
et et et 


>: PRINT@480, “‘snMAle TT: 
>PRINT@480, “Siiasnle T 
> DLTRA: STATUSA 
PRINT@48@0, R$; -GOSUBSI15 
FINKEYS=CHRS( 13) THENIS@ELSE1119 


tPl 


M WORDS"; 
M/WORDS 


:SOUNDS®, 
> SOUNDS. 


:ERA"*M/WORDS" 
:SAVE"M- WORD 


4 


ve 


Ie = 


oo! 


ene 


CLS: PRINT@480, "'Marwinaiiim T: ROM-DPG": : SOUNDS, 


t= 


BLOAD"ROM-@PG" :GOTO180 
CLS: PRINT@480, "‘mgieizeditin T: ROM-9PG"; :SOUNDZO, 1: ERA" ROM-OPG" 
UOLS:PRINT@480, “Siitetain T: ROM-OPG ";: SOUNDS, 1 


BSAVE" ROM-@OPG" ,C900, DFFF:GOTO18®@ 


ROEM "gp i can: Sa A a 0 SR | 8 
CUS=CHRS(222)+CHRS( 8) : BSS=CHRS(S3)+CHRS( 1L27)+CUS: INS="" 
L=LEN( INS) :PRINT INS5CUS; 

AS- INKEYS: AS=INKEYS: [FAS=""THEN2@ 1OELSEX=USR(A3 
POKESO776, 40: [FAS=CHRS(12)THENPRINT"” ":GOTOZO45 
LFAS="; "ANDL>OTHENPRINTBSS; :L=L-1: [INS=LEFTS(INS,L) 
“FL=LE THENSOUND2®, 1ELSEIFAS=" "“ANDL=9THENZ®O 1 

TRAse VORASS*""QORAS="5 "THENZO 1D 

IFL. LE THENPRINTAS;CUS; : INS=INS+AS:L=L+1 
3ZOTO29 19 

(RDS="T"ORDS="? "THENRETUERN 

“SR ICUPsriNS, lia" “THENINS=LEPTS( INS, LENC ING 1-1: 


<2 LUN 


2129S 


Ae TOKENS AND WORDS EW Rm. GIT NN A 





WORD ROUTINE ADDRESS WORD 
ADD.TOKEN WORD DEC LO HI HEX ADD. TOKEN WORD IN CHR$ AND ASCII 
5712 128 END 7598 174 29 1DAE S7i2 128319718 78N 8D 

5715 129 FOR 7329 141 28 iCal S715 129:198iga 790 82R 

S719 130 RESET 312 56 1 @1238 5719 130:210i] 69E 83S 69E 34T 
9725 131 SET 309 I0 1 @135 Ji2o 13L:2118) 69E 84T 

9726 132 CLS 457 201 1 oic9 3726 132:195(8 76. 83S 

5729 133 CMD 31091 115 121 7973 5729 1331129, 22 

5732 134 RANDOM 447 211 1 @1D3 5722 1341129, 020020 

S738 135 NEXT 8886 182 34 2286 S738 135: 206s] 69E S8X B4T 
5742 136 DATA 7941 5 31 1Fos 5742 136:196|a] 65A 84T 465A 
5746 137 INPUT 8602 154 33 2194 5746 137:2Q01k 78N 8@P 85U B4T 
5751 138 DIM 9736 8 38 2688 5751 138:19618) 731 77M 

5754 139 READ 8687 239 33 21EF S754 139:210i 69€ 465A 48D 
5758 140 LET 7969 33 31 1F21 5758 140:2041m 69E g4T 

S761 141 GOTO 7874 194 30 1EC2 S761 141:199l4 790 84T 790 
5765 142 RUN 7843 163 30 1EA3 5765 142:210ic] @5U 78N 

5768 143 IF 8249 57 32 2039 S768 143:201" 70F 

5770 144 RESTORE 7569 145 29 1D91 5770 144:210i] 69E 82S 84T 790 B2R S9E 
S777 145 GOSUB 7857 177 30 1EBI 5777 145:1994 790 83S 85U 66B 
| $782 144 RETURN 7902 222 30 1EDE 5782 146:210in] 69E 84T S8SU 82R 78N 
5788 147 REM 7943 7 31 1FO07 5788 147:210ig 696 77M 

S791 148 STOP 7593 169 29 1DaA9 S791 148:2116) 847 790 sap 
5795 149 ELSE 7943 7 Si. 1FQ7 5795 149:197i 76L 83S 49 
5799 150 COPY 14619 18 57 3912 5799 150:195(a 790 S@aP 89Y 
S8Q@3 151 COLOR 14493 157 56 389D 5802 151:195im 790 76L 790 B2R 
58@9 152 VERIFY 14134 56 55 373g S808 152:214iy 69E 82R 73I 7OF B9Y 
5814 153 DEFINT 7683 3 3@ 1&2 S814 153:129, 2090020 

59820 154 DEFSNG 7686 6 30 1EQé4 5820 154:129, 20002 

S826 155 DEFDBL 7689 9 30 1EQ9 5826 155:129, 29080 

S832 156 CRUN 14126 46 55 372€ S832 156:195ty 82k 85U 78N 
S836 157 MODE 11875 99 46 E63 5836 157:205ii) 790 68D 69 
5840 158 SOUND 11253 245 43 2BF5 5840 158:2116] 790 @SU 78N 48D 
5845 159 RESUME 8111 175 31 1iFAF 5845 159:129, 982022 

5851 160 OUT 110@3 251 42 2AFB 5851 140:207i8] 8SU 84T 

S854 141 ON 98044 108 31 1F4C S854 161:129, @ 

S856 162 OPEN 31097 121 121 7979 5856 162:129, 222 

5840 163 FIELD 3110@ 124 121 797C 5860 1635:129, 29902 

S865 164 GET 31103 127 121 797F 5865 164:129, 22 

3868 165 PUT 31106 130 121 7982 5868 165:129, O92 

5871 166 CLOSE 31189 133 121 7985 S871 166:129, 2022 

5876 167 LOAD 31112 136 121 7988 5876 1467:129y 222 

S880 148 MERGE 31115 139 121 798B S880 148:129, 2002 

S885 169 NAME 31118 142 121 798E 5885 169:129, 2220 

S889 172 KILL 31121 145 121 7991 S889 170:1294 202 

S893 171 LSET 31127 151 121 7997 5893 171:129, 292 

5897 172 RSET 31130 154 121 7994 5897 172:129, 2220 

S901 173 SAVE 31136 160 121 7900 5901 173:129, 0220 

S905 174 SYSTEM 2 @ 2 a0 S905 174:129, 22202 

S911 175 LPRINT 8295 103 32 2067. 5911 175:204im SQP 82R 731 78N 84T 
5917 176 DEF 31867 91 121 795B S917 17611295 O29 - 

S920 177 POKE 11441 177 #44 2CRIL 5920 177:208lal 790 75K 49E 
5924 178 PRINT 8303 111 232 206F 5924 178:208iq 82R 731 78N G4T 
5929 179 CONT 7652 228 29 1pe4 5929 179:195i8 790 78N 84T 
5933 18@ LIST 11054 46 43 2B2E 5933 180: 204M 731 83S 84T 
S937 181 LLIST 11049 41 43 2829 S937 191:2041M 76L 731 83S g4T 
5942 1982 DELETE 11206 198 43 2BC4 5942 182:129, 20002 

5948 195 AUTO 8200 8 32 28 5948 193:129, 222 

S952 184 CLEAR 7802 122 30 1E7¢ S952 184:195ie) 76L 49E 654 QR 
5957 185 CLOAD 139102 86 54 7456 5957 185:195I 76L 790 658 48D 
5962 186 CSAVE 13481 169 S52  34a9 5962 186:195{u) 85S 65A S4V S9E 
5967 187 NEW 5985 735 27 1B49 5967 187:206l%] 69E 87W 

5970 188 TAB NO ADDRESS LIST 5970 188:212my 650 44B 40( 
5974 189 TO NO ADDRESS LIST 5974 189: 212my 790 


WV iPFPORENS AND WORDS cCORNnNT . - 7 1 





WORD ROUTINE ADDRESS WORD 
ADD.TOKEN WORD DEC LO HI HEX ADD.TOKEN WORD IN CHR AND ASCII 
5975 190 FN NO ADDRESS LIST 5976 190:129, @ 

5978 191 USING NO ADDRESS LIST S978 191: 213) 85S 731 78N 71G 
5985 192 VARPTR NO ADDRESS LIST 5983 192:129, 2022020 

59989 193 USR NO ADDRESS LIST 5989 193:213W) 83S 82R 

5992 194 ERL NO ADDRESS LIST 5992 194:129, 02 

5995 195 ERR NO ADDRESS LIST 5995 195:129, @ 

5998 196 STRING# NO ADDRESS LIST 5998 196:129, 928909002 
6005 197 INSTR NO ADDRESS LIST 6005 197:129y 82202 

601@ 198 POINT NO ADDRESS LIST 6010 198:208ly 790 731 78N 84T 
6015 199 TIMES NO ADDRESS LIST 6015 1995129, @0202 

6020 200 MEM NO ADDRESS LIST 6020 200:129, 02 

6023 201 INKEYS NO ADDRESS LIST 6023 201: 201m 78N 75K 69E 39Y 364 
6029 202 THEN NO ADDRESS LIST 6029 202:212Ky 72H S9E 78N 
6032 203 NOT NO ADDRESS LIST 6033 203: 261k] 790 B84T 

6036 204 STEP NO ADDRESS LIST 6036 204:21 is} 84T 49E 8aP 
6040 205 + NO ADDRESS LIST 6040 205:171lh WORD IS + 

6041 204 - NO ADDRESS LIST 6041 206:173"] WORD IS - 

6042 207 * NO ADDRESS LIST 6042 207:170% WORD IS * 

6043 208 / NO ADDRESS LIST 6043 208:175IH WORD IS / 

6044 209 * NO ADDRESS LIST 6044 209: 2228] 

6045 210 AND NO ADDRESS LIST 6045 210:193f] 78N 68D 

60248 211 OR NO ADDRESS LIST 6048 211:207[m S2R 

6052 212 > NO ADDRESS LIST 6050 212:190™ WORD IS > 

6051 213 = NO ADDRESS LIST 6051 213:189%] WORD IS = 

6052 214 <¢ NO ADDRESS LIST 6052 214:188™ WORD IS < 

6053 215 SGN 2442 138 9 980 6053 215:211) 71iG 798N 

6056 216 INT 2871 55 11 @B37 6956 216: 201k 78N 84T 

6059 217 ABS 2423 119 9 0977 6059 217:1938] 4646B 93S 

6062 218 FRE 10196 212 39 27D4 6062 2718:129, OQ 

6065 219 INP 10991 239 42 2AEF 6065 219:201a8 78N SOP 

6068 220 POS 10229 245 39 27F5 6068 220:129, O98 

6071 221 SOR 5095 231 19 1387 6071 221:211l} 910 82R 

6074 222 RND 5321 201 22 14¢9 6074 222:210lsi 78N 48D 

60277 223 LOG 2057 9 8 a8a9 6077 223: 2041 790 71G 

6882 224 EXP 5177 57 20 1439 6080 224:197im 88X saP 

6083 225 cos 5441 65 21 1541 6083 225:195(a1 790 982s 

6086 226 SIN 5447 71 21 1547 6086 226:271164) 731 78N 

6089 227 TAN S344 168 21 15A8 6089 227:212ng 65A 78N 

6092 228 ATN S565 189 21 15BD 6092 228:193f] 84T 78N 

6095 229 PEEK 11434 170 44 2CAA 6095 229: 208g 696 469E 75K 
6899 230 CVI 31058 82 121 7952 6099 230:129, 22 

6102 231 CVS 31064 88 121 7958 6102 231:129, O82 

6105 272 CVD 31070 94 121 795E 6105 232:1294 O20 

6108 233 EOF 31073 97 121 7961 61098 233:129, 22 

6111 234 Loc 31076 100 121 7964 6111 234:129, 22 

6114 235 LOF 31979 103 121 7967 6114 235:129 4 02 

6117 236 MKI$S 31082 106 121 796A 6117 236:129, 222 

6121 237 MKS$ 31085 109 121 796D 6121 237:129, 222 

6125 238 MKD 31988 112 121 7979 6125 238:129, 8220 

6129 239 CINT 2687 127 10 QOA7F 6129 239:129, @220 

61235 248 CSNG 2737 177 10 @ABL 6133 240:129, 890 

6137 241 CDBL 2779 219 10 ADB 6137 241:129y 9202 

6141 242 FIX 2854 38 11 OB26 6141 247:129, @2 

6144 243 LEN 10755 3 42 2AG2 6144 243:2041m 69E 78N 

6147 244 STR$ 10294 54 40 2836 6147 244:211\s] 84T S2R 34s 
6151 245 VAL 10949 197 42 2ACS 6151 245:214iy 65A 74. 

6154 246 ASC 10767 15 42 2Ae@F 6154 246:193] 83S 47c 

6157 247 CHR$ 10785 Si 42 2AIF 6157 247:195 [a 72H S2R 36s 
6161 248 LEFT$ 10849 97 42 2A61 6161 248: 204i S9E 7OF B4T 26s 
6166 249 RIGHTS 10897 145 42 Agi 6166 249:210ls 751 71G 72H 84T 343 


6172 258 MIDS 10906 154 42 2A9A Ol72 250: 205i 731 68D 343 


FOR SALE — EXTENDED pOS V1.2: 13 


EXTENDED DOS VERSION 1.0 (C) COMMANDS :- 


MERGE MERGES basic file from disk with program in memory. 
DIRA - See example ~— T:MENU B: PATCHS. 1 B:WORDPROC 

B:EXTDOS E B:EXTDOS R W:DOS-INST 
LDIRA - AS above, but to screen and printer. 


DIRB - See example — T:MENU @1 0@ TAES BO@1B 9532 
B:PATCHS. 1 @1 ®B 7200 771F @O5S1F 

LDIRB - AS above, but to screen and printer. 

STATUSA - Prints free disk space to screen on one line. 

LSTATUSA - As above, but to screen and printer, see below. 

534 RECORDS FREE 63.50@0K FREE 

OLD - Restores a program after using the NEW command. 

OLD. -— Prints START, ‘END and LENGHT of program in memory in HEX. 

DEC XXXXX - Converts DECIMAL to HEX 

HEX XXXX - Converts HEX to DECIMAL 


STATUSA and LSTATUSA also works with Version 1.0 DOS. 


The EXTENDED DOS is available in the two versions below :- 
EXTDOS R - T.O.M. SEEKING (SELF RELOCATING) 

EXTDOS E - FOR 2K RAM AT SOO@-S7FF HEX 

Price - $1@0.90@ each or the two for $15.00. Availble from :- 


Dave MITCHELL - (079) 27 8519 
24 ELPHINSTONE STREET NORTH ROCKHAMPTON QUEENSLAND 4701 


FOR INFORMATION IN NEWCASTLE AREA :- Joe LEON —- (949) 51 2756 


FOR SALEF — DATABASE — DISK HH TAPE 


DATA =< 16k - VZ DATABASE. Enter data into records thirty 
Characters long (accepts graphic characters). Runs on VZ 20@+16k 
or VZ 300. Available on disk as DISK DATABASE or on tape as 
CASSETTE. DATABASE: 


Facilities include data entry into record of choice, Pi cc 
last record chosen, next record, auto-next for fast data entry, 
edit keys so you don’t have to re-enter entire content of a 
record, delete a record, delete a block of records, gay 
delete, insert, gap insert, fast alphabetical sort of 
records--start anywhere in records ; number sort ; SWap any two 
records >; page display--ten records per page ; display current 
page, next page, previous page, flip backward and forware 
through datafile, Swap any two pages, fast search of entire 
datafile for a sequence of characters--anywhere in records, 
hardcopy your records--especially suited for VZ printer plotter ; 
menu etc. 


Disk DATA has Directory and ERASE commands, saves a datafile 
or any part thereof as a single binary file which loads back 
quickly. Cassette DATA CSAVES a datafile as a single T file--no 
slow loading of multitudes of D files! All instructions for 
using DATA are stored on disk and tape as datafiles-~run DATA, 
load an instruction file and page through it. This program 
certainly stands out amongst the crowd of other such programs of 
it Ss type. 


PRICE - $20.00 for DISK or CASSETTE DATABASE —- Please make al] 
Cheques and Money Orders payable to and is available from :- 
SCOTT LE BRUN S CAMERON COURT WANTIRNA NIC» S452 


FOR SALE DISK EHEDYAYADSDS CONVERTER 2@ 


KOKORO KKK OKKCKCKCIORCCK AOC OOOO KCK KCK CK KAO OK KOK CKO SOK KR OK CO 
EDITOR ASSEMBLER. TAPE 10 DISK CONVERSION UTILITY 
- CONVERT YOUR EDITOR ASSEMBLER TO FULL DISK QPERATION - 

V2 USER has a conversion package to convert the Dick Smith Editor 
Assembler (Version 1.2). All SAVES/LOADS etc. to Disk. (Yearsion 
[1 Converter coming soon. 

Price $15.@@ inc. postage and is available from :- 

Mark Harwood (Editor) *VZ USER’ 


P.O. BOX 154 DURAL NSW AUSTRALIA Phone (02) 651 1415 AH 


OCC ICICI AC ICK 8 
K *K FOR SALE *® *® *® *K® FOR SALE * & 


Bee Wa Pau PATCH S « Ft —- QUIT C™ WRITE W.Pr. 
PATCHS.1 —- COPYRIGHT - H.V.VZ.U.G. * * * NEW NEW NEW « # + 
This single Patch will convert your QUICKWRITE WORDFROCESSOR 

E & F TAFE WORD PROCESSOR for full 

DISK use while retaining all TAFE DISC BASED WORDPROCESSOR 
functions. It can be used with 1 or ASB40. G0 


2 DRIVES. Below are the two Menus. 
QUICKGRITE WORDPROCESSOR IS SUITABLE FOR THE 


F)DIT TEXT L) OAD EXPANDED ¥Z200 AND VZ200 COMPUTERS. 
C)LEAR TEXT 5) AVE 
PO) RINT TEXT D) IR QUICKWRITE 1s software on disc, so RAM and aQM 
L)OAD FILE £)RA PACKS do not have to be plugged and unplugged inta the ¥Z 
S)AVE FILE RK) EN woich can cause loose port socket connections. 
VIER LEY Pie [UNIT RUICKWRITE runs on either the LASER or VZ DUS disc 
Q)UIT FROGRAM 12) DRIVE A controller. 
D) ISK M) ENU QUICEWRITE saves and loads document text (data) to 
disc. , 
Fast SAVING and LOADING of TEXT 
DATA to and from Disk is provided FEATURES. 
using Block SAVE or LOAD. * Fast disc saving and loading af document text 
(data). 
Full instructions are supplied * Automatic periodic saving of data while in typing 
together with a Tape to Disk mode if required. 
transfer utility for your E&F * Tape saving and loading of data as a backup 
Tape Word Frocessor. medium. 
* loading of E&F tape tiles idata) possible. 
This Fatch will work with V1.0 # Printer font changes within the data. 
or Vi.2 Disk Controller. A STATUS * Capitals/lower case software lock an/off. 
facility has been added for V1.0 * Accommodates wide printers - up to 255 columns. 
DOS owners. * A Printer/Plotter can also be used. 
* Four print justify/wragged modes. 
SYSTEM REQUIREMENTS :- * Adequate operator warnings. 
DISK DRIVE + V1.0 OR Vi.2 DOS * Labelling of discs allowable, such as date, code 
VZ500 + 16K RAM PACK OR ate, 
VZ200 + 18K (16K RAM PACK + 2k) * The usual editing facilities:- 
Delete, Insert, Find and Replace, Paste, Cut 
The price - £10.08, NZ AUS12.0@ and atc, | 
1S avallablie from :- * Humber i or number 2 disc drive selection allowed, 
HUNTER VALLEY VZ USERS’ GROUP * The price of A$40.00. includes surface postage 
P.O .BOX- L6d JESMOND: 2239 within Australia. 


N.S.W. AUSTRALIA Phone (049)51 2756 
Sald ONLY by VSOFTWAREZ 
39 Agnes st., TOOWONG @/LAND. 4066. 
AUSTRALIA. 
(O7}371 3707, 


